home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiue.dir / 00025.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  751 b   |  26 lines
  1. on mouseDown
  2.   global taidata, taidataj, sdata, tj, moji, msno
  3.   set taidata to EMPTY
  4.   set taidataj to EMPTY
  5.   set sdata to EMPTY
  6.   set msno to clickOn()
  7.   highwaystar(msno)
  8.   set moji to "ﾃﾂｩ,ﾃﾂｴ,ﾃﾂ,ﾃﾃ,ﾃﾂｱ"
  9.   delete line 1 of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  10.   put field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  11.   if tj = 1 then
  12.     put EMPTY into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  13.     tgyou("ﾃﾂｩ,ﾃﾂｴ,ﾃﾂ,ﾃﾃ,ﾃﾂｱ")
  14.     if the number of items in taidata = 1 then
  15.       put "Nothing" into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  16.     end if
  17.   else
  18.     put EMPTY into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  19.     jgyou("ﾃﾂｩ,ﾃﾂｴ,ﾃﾂ,ﾃﾃ,ﾃﾂｱ")
  20.     if the number of items in sdata = 1 then
  21.       ﾃ窶｡ﾃﾂｵYﾃｱ窶愿邃｢ﾃﾂ｢ﾃﾂｻﾃﾂｩﾃﾂ｡ﾃﾃｽﾃﾃ()
  22.       put "Nothing" into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  23.     end if
  24.   end if
  25. end
  26.